home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8908.d64 / irq mouse (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  811b  |  20 lines
  1. 100 REM *****************
  2. 110 REM *** IRQ MOUSE ***
  3. 120 REM *****************
  4. 130 :
  5. 140 REM BY JOCHEN KIRSCH
  6. 150 :
  7. 151 DATA192,0,0,240,0,0,124,0,0,127,0,0,63,192,0,63,240,0,31,224,0,31,192
  8. 152 DATA0,15,224,0,15,240,0,6,120,0,4,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  9. 153 DATA0,0,0,0,0,0,0,0,0,0,0,0,1,173,0,220,170,41,1,208,10,56,173,1,208
  10. 154 DATA237,127,3,141,1,208,138,41,2,208,10,24,173,1,208,109,127,3,141,1
  11. 155 DATA208,138,41,4,208,12,56,173,0,208,237,127,3,141,0,208,144,20,138,41
  12. 156 DATA8,208,32,24,173,0,208,109,127,3,141,0,208,176,3,76,215,3,173,16,208
  13. 157 DATA41,1,240,5,73,1,76,212,3,9,1,141,16,208,76,49,234,169,1,141,21,208
  14. 158 DATA169,13,141,248,7,169,15,141,39,208,169,160,141,0,208,169,160,141,1
  15. 159 DATA208,120,169,128,141,20,3,169,3,141,21,3,88,96
  16. 160 PRINT"IRQ MOUSE BY JOK
  17. 170 [153]"PLEASE WAIT
  18. 180 FORI=0TO191:READQ:POKE832+I,Q:NEXT
  19. 190 SYS986
  20.